(word_boundary_p): If C1 or C2 are composite

characters, test their first components.

diff --git a/src/category.c b/src/category.c
index d858fd1e36d83d57335f7186557f0b59491566dd..734634bd6aa63aa1fc2a81b81c7bd466d8cb50b3 100644 (file)
--- a/src/category.c
+++ b/src/category.c
@@ -568,6 +568,11 @@ word_boundary_p (c1, c2)
   Lisp_Object tail;
   int default_result;
 
+  if (COMPOSITE_CHAR_P (c1))
+    c1 = cmpchar_component (c1, 0, 1);
+  if (COMPOSITE_CHAR_P (c2))
+    c2 = cmpchar_component (c2, 0, 1);
+
   if (CHAR_CHARSET (c1) == CHAR_CHARSET (c2))
     {
       tail = Vword_separating_categories;